home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Svd Messageboard Arcive / ephemery / data / MBPREP.ZIP / CHECKTRE.PL next >
Encoding:
Text File  |  1999-01-30  |  1010 b   |  36 lines
  1. $IN= $ARGV[0] ne '' ? $ARGV[0] : die "need tree-file-name";
  2. $MB = $ARGV[0];
  3. $MB =~ s/\.tre$//i;
  4. $MB =~ s/^.+\\//;
  5. $MB =~ tr/A-Z/a-z/;
  6.  
  7. print "<html><body>\n";
  8. print "<!-- $TREEN  check; empty file means OK -->\n";
  9.  
  10. open IN || die "can't open $IN";
  11. $msgprev = '';
  12.  
  13. while (<IN>) { chop;
  14.    ($lvl,$mail,$name,$mssg,$subj,$date) = split( "\f");
  15. #check (in current directory) for missing files and print them
  16.    $mssgroot =  $mssg;
  17.    $mssgroot =~ s/\.9$//;
  18.    $mssgroot =~ s/\.HTM$//;
  19.    @st1 = stat( "$mssgroot.HTM" );
  20.    if (!$st1[7]) {
  21.      @st1 = stat( "$mssgroot.9" );
  22.      if (!$st1[7]) {
  23.        $mssgroot = "9$mssgroot";
  24. #      print ": $mssgroot\n"
  25.        $http = "http://www.insidetheweb.com/messageboard/mbs.cgi?acct=$MB&MyNum=$mssgroot&P=No&TL=$mssgroot";
  26.        print "<A HREF=\"$http\"> $mssg </A><BR>\n";
  27.       }
  28.    }
  29.    print "!! $mssg duplicated!\n" if $msgprev eq $mssgroot;
  30.    $msgprev = $mssgroot;
  31. }
  32. close IN;
  33. #print "</body></html>\n";  #epilogue
  34.  
  35. #SvD 01'99
  36.